home *** CD-ROM | disk | FTP | other *** search
/ DigitalVision: Cats & Dogs / DigitalVision: Cats & Dogs - Disc 1.iso / pc / s_saver / dv_onlin.exe / dv_onlin.dcr / Internal_4_scroller script.ls < prev    next >
Encoding:
Text File  |  2000-07-28  |  489 b   |  29 lines
  1. property pLoc
  2. global glocH, gtotalscroll, gimagespace, gNumImages, gobjects
  3.  
  4. on new me
  5.   pLoc = 0
  6.   return me
  7. end
  8.  
  9. on Run me, h
  10.   case h of
  11.     #mouse:
  12.       h = the mouseH - 400
  13.     #pause:
  14.       h = 0
  15.     otherwise:
  16.       h = h - 400
  17.   end case
  18.   pLoc = pLoc - (h / 130.00999999999999091)
  19.   if pLoc > gtotalscroll then
  20.     pLoc = pLoc - gtotalscroll
  21.   end if
  22.   if pLoc < 0 then
  23.     pLoc = pLoc + gtotalscroll
  24.   end if
  25.   repeat with ob in gobjects
  26.     ob.prepframe(pLoc)
  27.   end repeat
  28. end
  29.